home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / com_and3.zip / PLINK.CMD < prev    next >
OS/2 REXX Batch file  |  1989-10-03  |  1KB  |  41 lines
  1. ; ----- PLINK: Dial People/Link (PLINK) and connect (logon)
  2. ; ----------------------------------------------------------------
  3. ;    Note: This script expects dialing directory entry #1 to be
  4. ;    a direct-dial number.  Telenet or other carrier access
  5. ;    requires different scripting.
  6. ; ----------------------------------------------------------------
  7. ;    Note: This script uses a LOGON file prepared by MKLOGON,
  8. ;    if one is available.
  9. ; ----------------------------------------------------------------
  10. ;
  11. ;    Dial PLINK
  12. ;
  13.     LEGEND " Dialing PLINK direct"
  14.     DEFTIME 60        ; Wait 60 seconds for an incoming string
  15.     IF NOT LINKED        ; If script not invoked from Alt-D
  16.        RESET        ; Reset defaults only if not linked
  17.        DIAL "1"             ; Call dial dir entry number 1 (PLINK)
  18.        IF FAILED        ; IF esc out
  19.           EXIT        ; terminate script
  20.           ENDIF        ; End if failed
  21.        ENDIF        ; End if not linked
  22.  
  23.     PAUSE "5"               ; Wait for the modem to settle down
  24.     TRANSMIT "!"            ; Transmit Carriage return <CR>
  25.     PAUSE "1"               ; Wait 1 sec
  26.     TRANSMIT "!"            ; Transmit Carriage return <CR>
  27.     WAITFOR "USER ID:"      ; Wait for the 'USER ID' prompt
  28.  
  29.     SET BSUPPRESS OFF    ; Turn off blank line suppression
  30.     SET MASK ON        ; Turn on high bit mask
  31.     SET CDISPLAY ON     ; Display ctl chars
  32. ;
  33. ;    If we have a AHNLOGON file, use it
  34. ;
  35.     SET TTHRU OFF        ; Let psw be typed
  36.     IF ISSCFILE "AHNLOGON"
  37.        FCALL "AHNLOGON"
  38.     ELSE
  39.        Alarm           ; Sound alarm
  40.        ENDIF
  41.